From 6613809bd5c169ee6e357de77256fae3a2cf48f4 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 19 May 2013 02:18:16 +0300 Subject: [PATCH] * lisp/man.el (Man-default-man-entry): Remove `-' from the end of the default value. --- lisp/ChangeLog | 5 +++++ lisp/man.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f2c5c32b001..5d5df052ced 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-05-18 Juri Linkov + + * man.el (Man-default-man-entry): Remove `-' from the end + of the default value. (Bug#14400) + 2013-05-18 Glenn Morris * comint.el (comint-password-prompt-regexp): diff --git a/lisp/man.el b/lisp/man.el index 04abc3d4d88..34131f43692 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -752,7 +752,7 @@ POS defaults to `point'." (setq word (concat word (match-string-no-properties 1))) ;; Make sure the section number gets included by the code below. (goto-char (match-end 1))) - (when (string-match "[._]+$" word) + (when (string-match "[-._]+$" word) (setq word (substring word 0 (match-beginning 0)))) ;; The following was commented out since the preceding code ;; should not produce a leading "*" in the first place. -- 2.30.2